home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs12.d81
/
nw126-3.sda
/
LEVELER 1.20A
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
5KB
|
137 lines
10 REMOPEN1,8,15,"S0:LEVELER*":CLOSE1:SAVE"LEVELER 1.20",8
20 REM ::::::::::::::::::::::::::::::
30 REM":: [206][197][212][215][207][210][203] 64 ::
40 [143]":: LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1987, 1988 ::
50 REM":: [194][217] [211][193][205] [204][197][215][201][212] ::
60 [143] ::::::::::::::::::::::::::::::
70 TX$[178]"":[129]I[178]1[164]255:TX$[178]TX$[170]"SQR":[130]
80 [129]I[178]896[164]937:[135]A:[151]I,A:[130]
90 NU$[178][199](0):CR$[178][199](13):C2$[178]CR$[170]CR$
100 [151]53280,0:[151]53281,0:[153]"LOAD"[163]15)"(null)EVELER
110 PRINTTAB(15)"[183][183][183][183][183][183][183][183]
120 [153]"SYS(null)HIS PROGRAM IS DESIGNED TO VERIFY YOUR
130 PRINT"LEVELS IN YOUR NODE ACCOUNTS FILE.
140 [153]"(null)OU WILL NEED TO SPECIFY YOUR PEEKPEEK(null) PARMS
150 PRINT"DRIVE, AND YOUR NETWORK SYSTEMS DRIVE.
160 [153]"(null)INCE AUTOREPLY LEVELS DETERMINE WHICH
170 PRINT"NODE GETS THE REPLY, THIS PROGRAM WILL
180 [153]"VERIFY THAT ALL YOUR LEVELS ARE IN
190 PRINT"PROPER ORDER.
200 [153]CR$"CONTPEEKPEEK(null) (null)ARMS FILE ON DEVICE:
210 PRINTCR$"[196]EVICE (8-15)";:INPUT" 8[157][157][157]";PV:IFPV<8ORPV>15THEN210
220 PRINT"[196]RIVE (0-10)";:INPUT" 0[157][157][157]";PR$
230 PR$=PR$+":"
240 PRINT"[201]NIT";:INPUT" I0[157][157][157][157]";P1$
250 PRINTCR$"[154][206]ETWORK SYSTEMS IS DEVICE:
260 [153]CR$"STR$EVICE (8-15)";:[133]" 8CMDCMDCMD";NV:[139]NV[179]8[176]NV[177]15[167]210
270 [153]"STR$RIVE (0-10)";:[133]" 0CMDCMDCMD";NR$
280 NR$[178]NR$[170]":"
290 [153]"RIGHT$NIT";:[133]" I0CMDCMDCMDCMD";N1$
300 [160]15:[159]15,PV,15,P1$
310 [159]8,PV,8,PR$[170]"SQRNTWRK.PARMS":[141]410:[139]ER[167][160]8:[137]100
320 [132]8,NN%:[153]C2$"(null)OU HAVE"NN%"(null)(null)(null)CHR$(null)RIGHT$(null)CHR$ NODES SET UP.":[160]8
330 [134]A$(NN%):[160]15:[159]15,NV,15,N1$
340 [159]8,NV,8,NR$[170]"SQRNODE LIST":[141]410:[139]ER[167][160]8:[137]100
350 [153]C2$"(null)OADING (null)(null)STR$VAL (null)RIGHT$(null)(null)...";
360 [129]I[178]1[164]NN%:[158]896:A$[178][200](TX$,25):[158]896:[153]".";
370 [139][201](A$,1)[178]" "[167]A$[178][200](A$,[195](A$)[171]1):[137]370
380 A$(I)[178]A$:[130]:[160]8:[153]
390 [159]8,NV,8,NR$[170]"SQRNODE ACCOUNTS":[141]410:[139]ER[167][160]8:[137]100
400 [137]480
410 [132]15,ER,ER$,T,S:[142]
420 [152]15,"P"[199](RN[171]256[172][181](RN[173]256))[199](RN[173]256)[199](II):[142]
430 [152]15,"P"NU$"":[142]
440 [131] 160,2,177,45,153,137,0,200,192,6
450 [131] 208,246,162,8,32,198,255
460 [131] 32,228,255,201,13,240,15,164,142,145
470 [131] 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
480 [141]430:[132]8,J:[153]"(null)OU HAVE"J"RIGHT$(null)LEN(null)(null)RIGHT$(null)CHR$ NODES ON FILE
490 DIMX$(J),X%(J)
500 PRINTC2$"[204]OADING ENTIRE ACCOUNT FILE..WAIT..";
510 FORRN=2TOJ:II=1:GOSUB420:SYS896:A$=LEFT$(TX$,PEEK(142))
520 IFA$="[186][196][197][204][197][212][197][196][186]"THEN540
530 X$(RN)=A$:II=38:GOSUB420:SYS896:X%(RN)=VAL(LEFT$(TX$,PEEK(142)))
540 PRINT".";:NEXT:CLOSE8
550 PRINTC2$"[154][200][207][205][197][146] KEY PAUSES, [211][208][193][195][197][146] BAR ABORTS
560 [153]"ATNCCT# REFERS TO THE (null)VALLEN(null)(null)STR$ NUMBER AS
570 PRINT"FOUND IN YOUR NODE ACCOUNTS FILE.
580 [153]"OPEN(null)ATN(null)VAL REFERS TO THE NODE NAME AS IT IS
590 PRINT"LISTED IN THE NODE ACCOUNT FILE"
600 PRINT"[150][204][201][206][203][197][196] [212][207] MEANS THAT [201][198] A REPLYABLE
610 [153]"LEVEL WAS GIVEN, THIS IS THE NAME OF
620 PRINT"THE NODE WHICH REPLIES WILL GO TO.
630 [153]"RIGHT$F THE (null)ATN(null)VAL AND (null)RIGHT$(null)(null)VALSTR$ (null)(null) DOES NOT
640 PRINT"MATCH, YOU'LL NEED TO ADJUST THE LEVEL
650 [153]"AS PER THE (null)ETWORK DOCS OR THE HELP
660 PRINT"FILE AVAILABLE AFTER THE LISTING.
665 [153]"SYSVALNTER (S)CREEN OR (P)RINTER OUTPUT";:[133]A$
670 [160]4:[159]4,3:[139]A$[178]"P"[167][160]4:[159]4,4,7
675 [153]"LEFT$IT YOUR LEFT$(null)(null)VAL KEY TO SEE LIST":[141]770:[153]
680 [129]I[178]2[164]J:[161]A$:[139]A$[178]" "[167]I[178]J:[153]"^P":[137]760
690 [139]A$[178]""[167][141]770
700 [152]4,"ATNCCT#"I"SYS(null)ATN(null)VAL:";:[139]X$(I)[178]""[167][152]4,"CLRSTR$VAL(null)VAL(null)VALSTR$":[152]4:[137]760
710 [152]4,X$(I)
720 [152]4,"CLR(null)RIGHT$(null)(null)VALSTR$ (null)(null) :";:[139]X%(I)[178]0[167][152]4,"OPEN(null)(null)(null)ATN(null)RIGHT$STR$ATN(null)VALSTR$":[137]760
730 [139]X%(I)[178]1[167][152]4,"OPEN(null)(null) (null)VAL(null)(null)RIGHT$VAL(null) ATN(null)(null)(null)(null)VALSTR$":[137]760
740 [139]X%(I)[177]NN%[170]1[167][152]4,"DEF!!VAL(null)(null)(null)(null)!!":[137]760
750 [152]4,A$(X%(I)[171]1)
760 [152]4,"PRINT#=======================================":[130]:[137]790
770 [161]A$:[139]A$[178]""[167]770
780 [142]
790 [152]4
795 [153]CR$"((null))IST, (LEFT$)ELP, OR ((null))UIT? ";
800 [161]A$:[139]A$[179][177]"L"[175]A$[179][177]"H"[175]A$[179][177]"Q"[167]800
810 [139]A$[178]"L"[167][153]"(null)IST":[137]550
815 [139]A$[178]"H"[167][153]"LEFT$ELP":[137]830
820 [153]"(null)UIT":[160]4:[160]15:[128]
830 [153]"LOADRIGHT$F YOU SEE A DISCREPENCY BETWEEN THE
840 PRINT"[206][193][205][197], AND [204][201][206][203][197][196] [212][207], THE FIRST THING TO
850 [153]"DO, IS TO WRITE DOWN THE ATNCCT #. (null)HIS
860 PRINT"[193]CCT# IS THE RECORD NUMBER IN THE NODE
870 [153]"ACCOUNTS FILE.
880 PRINT"[150][201][205][208][207][210][212][193][206][212]![146] [212]HE [193]CCT # REGARDLESS OF
890 [153]"WHAT IT IS, HAS ABSOLUTELY (null)(null)(null)LEFT$RIGHT$(null)CHR$ TO
900 PRINT"DO WITH THE ACCESS LEVEL OR WITH
910 [153]"SETTING ACCESS LEVELS. (null)HEN YOU'RE
920 PRINT"SETTING A LEVEL, REMEMBER THAT THE
930 [153]"ATNCCT # HAS NOTHING TO DO WITH IT.
940 PRINT"[201]F YOU WANT TO SET UP A NODE AS
950 [153]"REPLYABLE, ASCRIGHT$(null)(null)(null) THING YOU DO, IS
960 PRINT"PRETEND YOU'RE GOING TO POST A NETWORK
970 [153]"MESSAGE. (null)HEN YOU GET TO THE FIRST
980 PRINT"PROMPT WHERE IT ASKS YOU FOR THE NODE
990 [153]"NUMBER, HIT '?' TO GET A LISTING.
995 PRINT"[200]IT ANY KEY[146]
996 [141]770
1000 [153]"LOAD(null)ET'S SAY ON THIS LISTING, (null)ERRAPIN
1010 PRINT"[212]RANSIT WAS NUMBER 8 ON THE LIST. [212]HIS
1020 [153]"NUMBER 8 IS THE (null)VAL(null) TO ACCESS LEVELS!
1030 PRINT"[206]OW GO BACK INTO THE NODE ACCOUNTS
1040 [153]"EDITOR. (null)OOK FOR (null)ERRAPIN (null)RANSIT
1050 PRINT"LISTED IN THE ACCOUNTS FILE. [201]F YOU
1060 [153]"WANT ANY MESSAGES COMING RIGHT$(null) FROM (null).(null).
1070 PRINT"TO BE REPLYABLE, YOU PUT IN A LEVEL OF
1080 [153]"NINE (9). (null)HY THE NUMBER 9 YOU ASK?
1090 PRINT"[194]ECAUSE, THERE ARE THREE BASIC ACCESS
1100 [153]"LEVELS... (null)NVALIDATED, (null)ALIDATED, BUT
1110 PRINT"NOT REPLYABLE,AND [210]EPLYABLE. [193]N
1120 [153]"(null)NVALIDATED LEVEL WILL ATN(null)(null)ATN(null)(null) BE 0. ATN
1130 PRINT"[214]ALIDATED BUT UNREPLYABLE LEVEL WILL
1140 [153]"ATN(null)(null)ATN(null)(null) BE 1. ATN (null)ALIDATED LEVEL IS
1150 PRINT"[193][204][215][193][217][211] THE [206][207][196][197] [206][213][205][194][197][210] AS IT APPEARS
1160 [153]"ON THE LISTING WHEN YOU HIT THE '?',
1170 PRINT"[208][204][213][211] 1. [201]N THE ABOVE CASE, WE SAW
1180 [153]"THAT (null)ERRAPIN (null)RANSIT WAS NUMBER 8 ON
1190 PRINT"THE LIST. [215]E ADD 8 + 1 AND WE COME UP
1200 [153]"WITH 9. (null)HAT'S THE LEVEL WE WANT.
1205 PRINT"[200]IT ANY KEY[146]
1207 [141]770
1210 [153]"CONTRIGHT$ REALIZE THIS ISN'T EXACTLY THE
1220 PRINT"SMOOTHEST WAY TO DO IT, BUT WHEN [201] WAS
1230 [153]"DESIGNING THE NETWORK, RIGHT$ DIDN'T HAVE
1240 PRINT"THE FORESIGHT TO SEE THIS AS A PROBLEM.
1250 [153]"LENHANGING THE ENTIRE SETUP NOW WOULD
1260 PRINT"CREATE MORE PROBLEMS THAN SIMPLY
1270 [153]"TRYING TO EXPLAIN HOW THE CURRENT SETUP
1280 PRINT"WORKS.":GOTO795